home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_1099_restoreMenuCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  698 b   |  23 lines
  1. global xxoldMenus, xxNumOldMenus,mS
  2. put true into myreset
  3. put the number of menus into tmn
  4. if there is a menu tStr("LibMsg",64) then delete menu tStr("LibMsg",64)
  5. if xxoldMenus ¡ "" then
  6. put line 1 of xxoldmenus into list -- the edit menu
  7. put item 1 of list into themenu
  8. delete item 1 of list
  9. if there is a menu themenu then
  10. put (the number of menuitems in menu themenu = the number of items in list) into myreset
  11. else
  12. put false into myreset
  13. end if
  14. end if
  15. put (tmn = xxNumOldMenus) and (myreset) into myreset
  16. if myreset then
  17. reset menubar
  18. end if
  19. show menubar
  20. put "true" into mS
  21. put "" into xxoldmenus
  22. put 0 into xxNumOldMenus
  23. if there is a menu tStr("LibMsg",40) then delete menu tStr("LibMsg",40)